* Economic Risk within the Household and Voting for the Radical Right
* Tarik Abou-Chadi and Thomas Kurer
* World Politics

** REPLICATION FILES

* Replicate findings in article

clear


use "replication_results.dta", clear


**Table 1**
logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident)
eststo: logit rpp_all unemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if e(sample), cl(ident) 
eststo: logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident) 
eststo: logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66, cl(ident) 
esttab using table1_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear



**Figure 4a**

logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident) 
margins, at(unemp_isco_1d=(0(0.005)0.20))
marginsplot, title("") xtitle("Unemployment Risk") ///
scheme(plotplain)   title("") leg(reg(lp(blank)))  ///
 recast(line) recastci(rline)  ciopts(lpattern(dash) lcolor(black))  ///
 ytitle("Predicted Probability RRP Vote")

**Figure 4b**

logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident) 
margins, at(punemp_isco_1d=(0(0.005)0.20))
marginsplot,  title("") xtitle("Partner Risk") ///
scheme(plotplain)   title("") leg(reg(lp(blank)))  ///
 recast(line) recastci(rline)  ciopts(lpattern(dash) lcolor(black))  ///
 ytitle("Predicted Probability RRP Vote")
 
**Figure 5**
 
logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66, cl(ident) 
margins, at(unemp_isco_1d=(0 (0.01) 0.20) punemp_isco_1d=(0.001 0.13))
marginsplot, scheme(plotplain) title("") xtitle("Unemployment Risk") /// 
recast(line) recastci(rline)  ciopts(lpattern(dash))  ///
 ytitle("Predicted Probability RRP Vote") ///
  plot1opts(color(gs1)) ci1opts(lcolor(gs1)) ///
 plot2opts(color(gs12)) ci2opts(lcolor(gs12))  ///
 legend(label(1 "Low risk partner") label(2 "High risk partner") pos(2))


*Figure 6a*
 
logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp nokids educ2 age female income i.cntryn i.year /// 
if age>17 & age <66 & female==1 & samesex==0, cl(ident) 
margins, at(unemp_isco_1d=(0 (0.01) 0.20) punemp_isco_1d=(0.001 0.13))
marginsplot,  scheme(plotplain) title("Women") xtitle("Unemployment Risk") yscale(r(0 (.1) 0.4)) ylabel(#5) xlabel(#5) /// 
recast(line) recastci(rline)  ciopts(lpattern(dash))  ///
 ytitle("Predicted Probability RRP Vote") ///
  plot1opts(color(gs1)) ci1opts(lcolor(gs1)) ///
 plot2opts(color(gs12)) ci2opts(lcolor(gs12))  ///
 legend(label(1 "Low risk partner") label(2 "High risk partner") pos(2))

*Figure 6b*
 
logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp nokids educ2 age female income i.cntryn i.year /// 
if age>17 & age <66 & female==0 & samesex==0, cl(ident) 
margins, at(unemp_isco_1d=(0 (0.01) 0.20) punemp_isco_1d=(0.001 0.13))
marginsplot,  scheme(plotplain) title("Men") xtitle("Unemployment Risk") xlabel(#5) /// 
recast(line) recastci(rline)  ciopts(lpattern(dash))  ///
 ytitle("Predicted Probability RRP Vote") ///
  plot1opts(color(gs1)) ci1opts(lcolor(gs1)) ///
 plot2opts(color(gs12)) ci2opts(lcolor(gs12))  ///
 legend(label(1 "Low risk partner") label(2 "High risk partner") pos(2))

 
**************
***Appendix***
************** 

**Table A5**
logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year
estpost sum unemp_isco_1d punemp_isco_1d unemp_isco_2d_robust punemp_isco_2d_robust unemp punemp income nokids educ2 age female if e(sample) 
esttab using summary.tex, cells("mean (fmt(2)) sd (fmt(2)) min (fmt(2)) max (fmt(2)) count (fmt(0))") noobs label replace
 
 
 
*Table A6* 

eststo: logit rpp_all unemp_isco_2d_robust punemp_isco_2d_robust  unemp punemp income nokids educ2 age female i.cntryn i.year ///
if  age>17 & age <66, cl(ident) 
eststo: logit rpp_all c.unemp_isco_2d_robust##c.punemp_isco_2d_robust unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66, cl(ident) 
eststo: logit rpp_all unemp_isco_1d punemp_isco_1d gincdif imwbcnt lrscale unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if  age>17 & age <66, cl(ident) 
eststo: logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d gincdif imwbcnt lrscale unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if  age>17 & age <66, cl(ident) 
eststo: logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp i.class8 i.pclass8 income nokids educ2 age female i.cntryn  ///
 if  age>17 & age <66, cl(ident) 
eststo: logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp i.class8 i.pclass8 nokids educ2 age female income i.cntryn  /// 
if  age>17 & age <66, cl(ident) 
esttab using table2_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear


*Table A7*
eststo: logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp nokids educ2 age female income i.cntryn i.year /// 
if age>17 & age <66 & female==1 & samesex==0, cl(ident) 
eststo: logit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp nokids educ2 age female income i.cntryn i.year /// 
if age>17 & age <66 & female==0 & samesex==0, cl(ident) 
esttab using tablesex_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear

*Table A8*
logit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident)
eststo: reg rpp_all unemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if e(sample), cl(ident) 
eststo: reg rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident) 
eststo: reg rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66, cl(ident) 
esttab using tablelpm_rr.tex, b(3) se r2 star(* 0.05 ** 0.01) replace label nodep
eststo clear


*Table A9*
melogit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female  ///
 if age>17 & age <66 || ident: 
eststo: melogit rpp_all unemp_isco_1d unemp punemp income nokids educ2 age female  ///
 if e(sample) || ident: 
eststo: melogit rpp_all unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female  ///
 if age>17 & age <66 || ident: 
eststo: melogit rpp_all c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female  /// 
if  age>17 & age <66 || ident: 
esttab using tablemlm_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear


*Table A10*
logit rpp unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident)
eststo: logit rpp unemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if e(sample), cl(ident) 
eststo: logit rpp unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66, cl(ident) 
eststo: logit rpp c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66, cl(ident) 
esttab using tableotherdv_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear


*Table A11*
logit rpp unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66 & inpaidwork==1, cl(ident)
eststo: logit rpp unemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if e(sample) & inpaidwork==1, cl(ident) 
eststo: logit rpp unemp_isco_1d punemp_isco_1d  unemp punemp income nokids educ2 age female i.cntryn i.year ///
 if age>17 & age <66 & inpaidwork==1, cl(ident) 
eststo: logit rpp c.unemp_isco_1d##c.punemp_isco_1d unemp punemp income nokids educ2 age female i.cntryn i.year /// 
if  age>17 & age <66 & inpaidwork==1, cl(ident) 
esttab using tableinpaid_rr.tex, b(3) se pr2 star(* 0.05 ** 0.01) replace label nodep
eststo clear

 